home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / AUDEX.DSK / HEARTAPE EXAMPLE PROGRAM.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  20 lines
  1. 5  HIMEM: 8192
  2. 10  REM  ***********************
  3. 20  REM  *                     *
  4. 30  REM  *  HEARTAPE ROUTINE   *
  5. 40  REM  *   EXAMPLE PROGRAM   *
  6. 50  REM  *                     *
  7. 60  REM  ***********************
  8. 70 D$ =  CHR$(4): REM  CNTRL 'D'
  9. 80  PRINT D$;"BLOAD AUDIO OPCODES"
  10. 90  REM   CALL HEARTAPE TO WRITE AUDIO DATA FROM CASSETTE TO MEMORY
  11. 100  GOSUB 10004: END 
  12. 10001  GOTO 10009: REM    AUDSUBS BEGIN
  13. 10002  GOSUB 10008: POKE 254,PL: POKE 255,PH: POKE 253,NR: CALL 37889: RETURN : REM  CALL SQUALK
  14. 10003  GOSUB 10008: POKE 254,PL: POKE 255,PH: CALL 37478: RETURN : REM  CALL JABBER 
  15. 10004  GOSUB 10008: PRINT "TAPE WILL PLAY THROUGH SPEAKER.": PRINT "'T' KEY TRIGGERS DATA INPUT": PRINT "'A' KEY ABORTS WITHOUT DATA INPUT": POKE 255,145: POKE 253,117: CALL 37632: HOME : RETURN : REM  CALL HEARTAPE
  16. 10005  POKE 255,145: POKE 253,117: CALL 37675: RETURN : REM  CALL AUDIO IN
  17. 10006  POKE 255,145: POKE 253,117: CALL 37786: RETURN : REM  CALL PLAYBACK
  18. 10007  POKE 254,ML: POKE 255,MH: POKE 252,NL: POKE 253,NH: CALL 37376: RETURN : REM  CALL TONE
  19. 10008 PH =  INT(AD/256):PL = AD -256 *PH: RETURN : REM  CONVERT AD (ADDRESS) TO PH (POKEHI) AND PL (POKELO)
  20. 10009 : REM    AUDSUBS END